Ucitati prirodan broj n i elemente niza x duzine n. Obrnuti poredak elemenata niza
bez uvodjenja novih nizova.

Sub zad3()
Dim x(100) As Double, n As Long, i As Long, P As Double
Open "ulaz.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
For i = 1 To n / 2
P = x(i)
x(i) = x(n + 1 - i)
x(n + 1 - i) = P
Next
Open "y.txt" For Output As #1
For i = 1 To n
Print #1, x(i)
Next
Close #1
End Sub



